Chyba v XP SP1 nebo v Delphi?

Otázka od: Radim Kunz

14. 11. 2002 16:23

Ahoj,

zjistil jsem jednu vec, dejte si na formular k timeru
tenhle nevinny kousek kodu:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(Mouse.CursorPos.x);
end;

pak ve Windows dejte "Odhlasit uzivatele" a "Prepnout uzivatele",
pak se po chvilce znovu prihlaste, a uvidite spoustu chybovych
hlasek: win32 error Code5.

Tataz chyba samozrejme u screensaveru s volbou
"pri pokracovani zobrazit uvodni obrazovku", coz je ve firmach
caste nastaveni.

Dela mi to na XP prof s SP1. Na pocitacich s XP bez SP1 to
jede bez chyby. Zkousel jsem to na D5 i D7.

Nevi nekdo, co s tim udelat? Teda krome strceni kazdeho
Mouse.CursorPos do try-except?

Radim

Odpovedá: Robert Suska

14. 11. 2002 17:00

Ahoj

Mam WinXP eng SP1, D6 Ent UpdataPack #2 a mne to hazde Error call OS
function EOSError  

Robo

> Ahoj,
>
> zjistil jsem jednu vec, dejte si na formular k timeru
> tenhle nevinny kousek kodu:
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> Label1.Caption := IntToStr(Mouse.CursorPos.x);
> end;
>
> pak ve Windows dejte "Odhlasit uzivatele" a "Prepnout uzivatele",
> pak se po chvilce znovu prihlaste, a uvidite spoustu chybovych
> hlasek: win32 error Code5.
>
> Tataz chyba samozrejme u screensaveru s volbou
> "pri pokracovani zobrazit uvodni obrazovku", coz je ve firmach
> caste nastaveni.
>
> Dela mi to na XP prof s SP1. Na pocitacich s XP bez SP1 to
> jede bez chyby. Zkousel jsem to na D5 i D7.
>
> Nevi nekdo, co s tim udelat? Teda krome strceni kazdeho
> Mouse.CursorPos do try-except?
>
> Radim
>